home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
bbsutil
/
125adev.zip
/
FAREASEE.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-08-08
|
480b
|
31 lines
defint a-z
declare function pdqvali%(st$)
faf$="areas\farea1.bbs"
open faf$ for input as 1
if err then end 1
print "Area Number?"
line input a$
av=pdqvali(a$)
for t=1 to av
if eof(1) then end 1
line input #1, nm$
if eof(1) then end 1
line input #1, secAp$
next
comma=instr(secap$,",")
sc$=left$(secap$,comma-1)
path$=mid$(secap$,comma+1)
print "Area Name: "nm$
print "Security Needed: "sc$
print "Path: "path$
end 0